#!/usr/bin/perl -w

use perlmod::analyser;

use Data::Dumper;

$|++;

#create the file list
my @files;

#populate it
foreach $i ( 1..21 ) {
	
	push(@files,"./images/image_" . $i . ".jpg");
	
}


#now for each file
foreach $filename ( @files ) {
	
	print "="x40 . "\n";
	print "loading \"$filename\"";
	my $image = perlmod::analyser->new($filename);
	print " done\n";
	
	print "extracting pixel index";
	$image->extractpixels();
	print " done\n";
	
	print "extracting clut";
	$image->extractclut();
	print " done\n";
	
	print "Checking clut for clipping";
	$image->clutclipcheck(255);
	print " done\n";
	
	print "Checking pixels for clipping";
	$image->pixelclipcheck();
	print " done\n";
	
	print "Checking average brightness";
	$image->avgcheck();
	print " done\n";
	
	print"Checking standard deviation";
	$image->stddevcheck();
	print " done\n";
	
	print "\n";
	
	
}






























